perm filename KB.F4[TMP,LCS] blob sn#187360 filedate 1975-11-21 generic text, type T, neo UTF8
00010		DIMENSION INP(72)
00100	3	TYPE 1
00110	5	K=0
00200	1	FORMAT(/' TYPE'/)
00210	6	K=K+1
00300		CALL KBS(J,L)
00310		INP(K)=J
00320		IF(L.EQ.0)GO TO 7
00330		K=K+1
00340		INP(K)=L
00350	7	IF(J.EQ.';')GO TO 4
00360		IF(J.NE.'*')GO TO 6
00400	4	TYPE 2,(INP(L),L=1,K)
00500	2	FORMAT(/1X72A1)
00600		GO TO 3
00700		END